00010	BEGIN "ZERO"
00020	
00030	INTEGER CHAN1,EOF,I;
00035	INTEGER ARRAY DUMMY[0:255];
00040	
00045	FOR I←0 STEP 1 UNTIL 255 DO DUMMY[I]←0;
00050	CHAN1←1; CLOSE(CHAN1);
00100	OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00110	ENTER(CHAN1,"RES.DAT",0);
00115	FOR I←0 STEP 1 UNTIL 15 DO ARRYOUT(CHAN1,DUMMY[0],256); CLOSE(CHAN1);
00120	OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00130	ENTER(CHAN1,"LRN.DAT",0);
00135	FOR I←0 STEP 1 UNTIL 15 DO ARRYOUT(CHAN1,DUMMY[0],256); CLOSE(CHAN1);
00140	
00150	END "ZERO";